Private Sub Workbook_Open()

    Application.ScreenUpdating = False
    Application.WindowState = xlMaximized
    
    Worksheets("WELCOME").Activate

    ' Create required system folders
    CreateAppFolder "Backups"
    CreateAppFolder "Exports"
    CreateAppFolder "Payslips"
    CreateAppFolder "Photos"
    CreateAppFolder "Signatures"

    ' Lock UI
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayWorkbookTabs = False

    Application.ScreenUpdating = True

End Sub



